home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / Shared.Cst / 00141_sMQT.ls < prev    next >
Encoding:
Text File  |  1999-10-10  |  1.3 KB  |  58 lines
  1. on startMovieQT qTFile
  2.   
  3.   -- Set all global definitions
  4.   global qtChan --Dir channel for screen object
  5.   global DEBUG
  6.   
  7.   -- If other QT sounds are playing, lower them.  Added by Ben 20-Aug
  8.   -- See VOX code and object
  9.   lowerQTSnd() -- Routine from VOX code
  10.   
  11.   set DEBUG = 0
  12.   
  13.   set qtChan = 4
  14.   
  15.   -- Disallow an exit via cmd-. cmd-q, forcing usage of "get back"
  16.   --  button.  In play mode of Dir4, this does not effect cmd-., and the use
  17.   --  of the button quits the play mode AND Dir itself.
  18.   --set the exitLock to TRUE
  19.   
  20.   startMovieQTm qTFile
  21.   
  22. end startMovieQT
  23.  
  24. ------------------------------------------------------------------------
  25.  
  26. on startMovieQTm qTFile
  27.   
  28.   -- Start movie
  29.   
  30.   global gPlayBtnSprite
  31.   global DEBUG
  32.   
  33.   set DEBUG = 0
  34.   
  35.   set movieName = the pathName & qTFile
  36.   
  37.   -- Set duration of movie & thumb locations
  38.   if (gPlayBtnSprite) then
  39.     setUpThumb
  40.   end if
  41.   
  42.   -- disable Dir looping, since that causes a Dir update
  43.   --  if we ever need to leave this frame, use the "continue" command
  44.   pause
  45.   
  46. end startMovieQTm
  47.  
  48. ------------------------------------------------------------------------
  49.  
  50. on stopMovieQT
  51.   global DEBUG
  52.   
  53.   -- If other QT sounds were playing, now raise them.  Added by Ben 20-Aug
  54.   -- See VOX code and object
  55.   raiseQTSnd() -- Routine from VOX code
  56.   
  57. end stopMovieQT
  58.